flexdashboard

I will first tidy the data set. It is important to standardize some of the values including, snow, tmax, tmin, and prcp. I am using filter to make my dataset smaller, so that the data can be more easily processed by my computer without crashing.

Column

Chart A

smaller_noaa %>% 
  plot_ly(x=~year, y = ~snow_mm, color = ~year, type = "box", colors = "viridis")

Chart B

smaller_noaa %>% 
  plot_ly(x = ~year, y = ~tmin, color = ~year, type = "bar", colors = "viridis")

Chart C

smaller_noaa %>%
  plot_ly(
    x = ~year, y = ~prcp, type = "scatter", mode = "markers", alpha = 0.5)